home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / icse / icse.sci < prev    next >
Text File  |  1999-09-16  |  804b  |  26 lines
  1. function [co,u,g,itv,dtv]=icse(u,simu,nap,imp)
  2. //Calcul du controle optimal sans mise a l'echelle du
  3. //controle et ponderation egale des observations
  4. //variables d'entree :
  5. //u(nu)     : parametres initiaux
  6. //simu      : chaine de caracteres donnant le nom du sous programme
  7. //            decrivant le probleme
  8. //nap       : nombre maximum d' appels du simulateur
  9. //imp       : valeur de debug pendant l'optimisation
  10. //variables de sortie :
  11. //co        : cout final
  12. //u(nu)     : parametres finaux
  13. //g(nu)     : gradient final
  14. //itv(nitv) : tableau de travail (entiers fortran)
  15. //dtv(ndtv) : tableau de travail (double precision fortran)
  16. //Utiliser les macros icot et icob pour extraire l'etat
  17. //!
  18. df0=1;
  19. nu=prod(size(u))
  20. ech=ones(1,nu);
  21. cof=ones(1,nob*ntob);
  22. [co,u,g,itv,dtv]=icsegen(u,simu,nap,imp)
  23.  
  24.  
  25.  
  26.